home *** CD-ROM | disk | FTP | other *** search
/ Newspaper 8 / Newspaper_8_2002-11-24_EXclusive_ON_Disk_4_of_4.d64 / t.vic ini < prev    next >
Text File  |  2023-02-26  |  1KB  |  77 lines
  1.  
  2. ; t.vic ini
  3. ;
  4. ; Inicjalizacja VIC-a bez zmiany koloru
  5. ; ramki i tla.
  6. ;
  7. ; () by Volcano/EXON
  8.  
  9. vec      = $fa          ;-$fb
  10.  
  11.          *= $2000
  12.  
  13.          sei
  14.          lda #$36       ; (!)
  15.          sta $01
  16.          ldy #$e0
  17.          sty vec+1
  18.          ldy #$00
  19.          sty vec
  20.          ldx #$1f
  21. rom      lda (vec),y
  22.          sta (vec),y
  23.          iny
  24.          bne rom
  25.          inc vec+1
  26.          dex
  27.          bpl rom
  28. ;-----------
  29.          lda #<nmi
  30.          sta $fffa
  31.          sta $fffc
  32.          lda #>nmi
  33.          sta $fffb
  34.          sta $fffd
  35. ;-----------
  36.          dec $01        ; (!)
  37.  
  38.          ldy #$e0
  39.          sty vec+1
  40. tst      ldy #$20
  41.          lda (vec),y
  42.          cmp #$0e
  43.          beq ok
  44.  
  45. zw       inc vec
  46.          bne *+4
  47.          inc vec+1
  48.          lda vec+1
  49.          bne tst
  50.          jmp ex
  51.  
  52. ok       iny
  53.          lda (vec),y
  54.          cmp #$06
  55.          bne zw
  56.  
  57.          ldy #$15
  58.          lda (vec),y
  59.          bne ex
  60. ;-----------
  61.          ldy #$11       ; #$00
  62.          sta (vec),y    ; $d011
  63.          ldy #$20
  64.          sta (vec),y    ; $d020
  65.          iny
  66.          sta (vec),y    ; $d021
  67.  
  68. ex       jsr $ff81
  69.          lda #$37       ; (!)
  70.          sta $01
  71.          cli
  72.          rts
  73. ;-----------
  74. nmi      rti
  75.  
  76.  
  77.